unit MainMenu;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ToolWin, ActnMan, ActnCtrls, ActnMenus, ActnList,
  XPStyleActnCtrls;

type
  TfMainMenu = class(TForm)
    ActionManager1: TActionManager;
    actContaContabil: TAction;
    ActionMainMenuBar1: TActionMainMenuBar;
    actContaContabilRef: TAction;
    actCentroCusto: TAction;
    actLoteTrans: TAction;
    actHistorico: TAction;
    procedure actContaContabilExecute(Sender: TObject);
    procedure actContaContabilRefExecute(Sender: TObject);
    procedure actCentroCustoExecute(Sender: TObject);
    procedure actHistoricoExecute(Sender: TObject);
    procedure actLoteTransExecute(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  fMainMenu: TfMainMenu;

implementation

{$R *.dfm}

procedure TfMainMenu.actContaContabilExecute(Sender: TObject);
begin
  if FuCadastroContaContabilNovo = Nil then
    Application.CreateForm(TFuCadastroContaContabilNovo, FuCadastroContaContabilNovo);
  FuCadastroContaContabilNovo.Show;
end;

procedure TfMainMenu.actContaContabilRefExecute(Sender: TObject);
begin
  if FCadastroContaContRefer = Nil then
    Application.CreateForm(TFCadastroContaContRefer, FCadastroContaContRefer);
  FCadastroContaContRefer.Show;
end;

procedure TfMainMenu.actCentroCustoExecute(Sender: TObject);
begin
  if FCadastroCentroCustoContabil = nil then
    Application.CreateForm(TFCadastroCentroCustoContabil, FCadastroCentroCustoContabil);
  FCadastroCentroCustoContabil.Show;
end;

procedure TfMainMenu.actHistoricoExecute(Sender: TObject);
begin
 if FCadastroHistorico = nil then
  Application.CreateForm(TFCadastroHistorico, FCadastroHistorico);
 FCadastroHistorico.show;
end;

procedure TfMainMenu.actLoteTransExecute(Sender: TObject);
begin
  if FCadastroLoteTransacao <> nil then
    Application.CreateForm(TFCadastroLoteTransacao, FCadastroLoteTransacao);
  FCadastroLoteTransacao.Show;
end;

end.
